home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / multiline_t < prev    next >
Text File  |  1992-02-23  |  2KB  |  61 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** t/comp/multiline.t.old    Tue Apr 23 23:48:56 1991
  14. --- t/comp/multiline.t    Thu Nov 14 08:57:06 1991
  15. ***************
  16. *** 4,9 ****
  17. --- 4,18 ----
  18.   
  19.   print "1..5\n";
  20.   
  21. + eval('umask');    # won't work on MS-DOS
  22. + $msdos = $@;
  23. + if ( $msdos ) {
  24. +     $rm = $ENV{'ROOTDIR'} . '/bin/rm';
  25. + }
  26. + else {
  27. +     $rm = '/bin/rm';
  28. + }
  29. + 
  30.   open(try,'>Comp.try') || (die "Can't open temp file.");
  31.   
  32.   $x = 'now is the time
  33. ***************
  34. *** 27,32 ****
  35. --- 36,42 ----
  36.       $z .= $_;
  37.       $count = $count + 1;
  38.   }
  39. + close try if $msdos;    # multiple opening of same file messy in DOS
  40.   
  41.   if ($z eq $y) {print "ok 2\n";} else {print "not ok 2\n";}
  42.   
  43. ***************
  44. *** 33,40 ****
  45.   if ($count == 3) {print "ok 3\n";} else {print "not ok 3\n";}
  46.   
  47.   $_ = `cat Comp.try`;
  48. - 
  49.   if (/.*\n.*\n.*\n$/) {print "ok 4\n";} else {print "not ok 4\n";}
  50. ! `/bin/rm -f Comp.try`;
  51.   
  52.   if ($_ eq $y) {print "ok 5\n";} else {print "not ok 5\n";}
  53. --- 43,49 ----
  54.   if ($count == 3) {print "ok 3\n";} else {print "not ok 3\n";}
  55.   
  56.   $_ = `cat Comp.try`;
  57.   if (/.*\n.*\n.*\n$/) {print "ok 4\n";} else {print "not ok 4\n";}
  58. ! `$rm -f Comp.try`;
  59.   
  60.   if ($_ eq $y) {print "ok 5\n";} else {print "not ok 5\n";}
  61.